home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD001a.dsk / SLIDE.SHOW.bas < prev    next >
BASIC Source File  |  2003-06-12  |  754b  |  13 lines
  1. 10  REM  SLIDE.SHOW
  2. 20  HOME : VTAB (6): HTAB (10): PRINT "ROGER SCHOENMEYER": HTAB (10): PRINT "5419 JOHANNSEN AVE": HTAB (10): PRINT "DAYTON, OHIO  45424"
  3. 25  VTAB (12): HTAB (5): PRINT "HAS TREATED US TO A SLIDE SHOW"
  4. 30  VTAB (14): PRINT "DO YOU WANT TO SEE IT PRIOR TO READING"
  5. 40  VTAB (16): HTAB (10): PRINT "SOFTDISK (Y OR N)? ";: GET R$: PRINT  CHR$(4)
  6. 45  IF R$ = "N" GOTO 90
  7. 47  IF R$ < >"Y" GOTO 40
  8. 50  DIM A$(4)
  9. 60  FOR X = 0 TO 3: READ A$(X): NEXT X
  10. 70  PRINT  CHR$(4);"BLOAD UNCRAM,A$1000": GR : POKE  -16302,0: POKE  -16297,0
  11. 80  FOR X = 0 TO 3: PRINT  CHR$(4);"BLOAD ";A$(X): CALL 4096: FOR Y = 0 TO 4000: NEXT Y: NEXT X
  12. 90  TEXT : HOME : PRINT  CHR$(4);"RUN SOFTDISK.PROG"
  13. 100  DATA  STAR.WARS.PIC,SATELLITE.PIC,ORBIT.PIC,SATELLITE1.PIC